home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / heaptrk.zip / DEMTRAK.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  485b  |  21 lines

  1. Program TrakDem;
  2. {A little demonstartion of the very powerful HEAP TRAK unit V1.0}
  3.  
  4. Uses HeapTrak;
  5.  
  6.   Var
  7.      I : Integer;
  8.      B : Array[1..10] of Pointer;
  9. Begin
  10.   Writeln('Using up some heap.............');
  11.   For I := 1 to 10 do
  12.     GetMem(B[I],I*10);
  13.  
  14.   Writeln('Freeing up some heap .........');
  15.   For I := 1 to 10  do
  16.    FreeMem(B[I],I*10);
  17.     Writeln;
  18.     Writeln('Now look at the file (with and editior) POINTER.LST and see the results.');
  19.     Writeln; Writeln;
  20.  
  21. end.